home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 68.7z / BS1 part 68 / InterChange Plus v3.0 (1993-11)(Syndesis)(Disk 2 of 2).7z / InterChange Plus v3.0 (1993-11)(Syndesis)(Disk 2 of 2).adf / PC_Tools.LZH / ALISP.ZIP / EXPLODE.LSP < prev    next >
Lisp/Scheme  |  1993-10-06  |  516b  |  18 lines
  1. (prompt"\nLoading EXPLODE.LSP...")
  2. (defun EXPLODE ( / ES EG)
  3.  (setvar "flatland" 0)
  4.  (setq ES (entsel"\nSelect block, polyline, dimension, or mesh:")
  5.        EG (entget(car ES))
  6.  )
  7.  (if(=(cdr(assoc 0 EG)) "INSERT")
  8.   (if(not(=(cdr(assoc 41 EG))(cdr(assoc 42 EG))(cdr(assoc 43 EG))))
  9.    (entmod(setq EG (subst (cons 42 (cdr(assoc 41 EG))) (assoc 42 EG) EG)
  10.                 EG (subst (cons 43 (cdr(assoc 41 EG))) (assoc 43 EG) EG))
  11.    )
  12.   )
  13.  )
  14.  (command "explode" ES)
  15.  (princ)
  16. )
  17. (prompt"Done.")
  18. (princ)